home *** CD-ROM | disk | FTP | other *** search
/ Revolution - Das Atari CD Magazin 1997 / Revolution - Das Atari CD Magazin 1.iso / software / document / ainfop14 / make_ink.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1995-11-02  |  1KB  |  52 lines
  1. $M258400
  2. $*&     ! Longwort-Integer-Multiplikation - 'MULS'
  3. $%3     ! Longwort-Integer-Division - Integer
  4. $RC&    ! RC_INTERSECT-Parameter als 2 Byte
  5. $S<     ! SELECT/CASE auf Programmlänge optimiert
  6. $F<     ! ENDFUNC-Zeilen ignorieren
  7. CLS
  8. PRINT " Konvertiere ITB.TXT, einen Moment bitte..."
  9. PRINT " "+STRING$(78,"-")
  10. DIM z$(1)
  11. OPEN "I",#1,"ITB.TXT"
  12. OPEN "O",#2,"MAKENEWS.INK"
  13. RECALL #1,z$(),1,z%
  14. WHILE z%=1
  15.   IF z$(0)<>""
  16.     idx$=LEFT$(z$(0))
  17.     '
  18.     SELECT idx$
  19.     CASE "U","#","-","D","Z","G"
  20.     DEFAULT
  21.       IF idx$="*"
  22.         ok!=FALSE
  23.         box$=MID$(z$(0),2)
  24.         ausg$=LEFT$(box$+SPACE$(8),8)+" "
  25.       ENDIF
  26.       IF idx$="N"
  27.         boxname$=MID$(z$(0),2)
  28.         ausg$=ausg$+LEFT$(boxname$+SPACE$(40),40)+" "
  29.       ENDIF
  30.       IF idx$="T"
  31.         tel$=MID$(z$(0),2)
  32.         IF LEFT$(tel$,4)="+49-"
  33.           tel$="0"+MID$(tel$,5)
  34.         ENDIF
  35.         ausg$=ausg$+tel$
  36.         ok!=TRUE
  37.       ENDIF
  38.       IF ok!=TRUE AND ausg$<>""
  39.         PRINT #2,ausg$
  40.         PRINT ausg$
  41.         ausg$=""
  42.       ENDIF
  43.     ENDSELECT
  44.     '
  45.   ENDIF
  46.   ' PAUSE 5
  47.   RECALL #1,z$(),1,z%
  48. WEND
  49. CLOSE #1
  50. CLOSE #2
  51. EDIT
  52.